home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / ptv1n4.arc / CRITERR.PAS < prev    next >
Pascal/Delphi Source File  |  1990-09-13  |  410b  |  20 lines
  1. unit CritErr;
  2. { Prevents Abort, Retry message on disk failures by replacing the
  3.   interrupt service routine with a "do-nothing" routine. }
  4.  
  5. interface
  6. uses Dos;
  7.  
  8. procedure CritHandler(Flags,CS,IP,AX,BX,CX,DX,SI,DI,DS,ES,BP: word);
  9. interrupt;
  10.  
  11. implementation
  12. procedure CritHandler(Flags,CS,IP,AX,BX,CX,DX,SI,DI,DS,ES,BP: word);
  13. begin
  14.   AX := 0;
  15. end;
  16.  
  17. begin
  18.   SetIntVec($24,@CritHandler);
  19. end.
  20.